TITLE CRUFT

BH:	BLOCK 3
	0		; this is a complete and total kludge.  you'll love it.

RPCBLK:	0
	.BYTE 9 ? "C ? "r ? "e ? "t
	.BYTE 9 ? "i ? "n ? "! ? 0
	.BYTE
 	7.
	ASCIZ/3261639/

CRUFT:	CAI
	RESET
	OUTSTR [ASCIZ/You are running a cretin user!
/]
	OPEN [17 ? SIXBIT/DLN0/ ? 0]
	 JRST 4,.
	OPEN 1,[0 ? 'DSK,, ? BH,,]
	 JRST 4,.
	MTAPE RPCBLK
	 JRST 4,.
	OUTSTR [ASCIZ/Start the other cretin.
/]
	MTAPE [7]
	 JRST [	OUTSTR [ASCIZ/Can't connect!/]
		EXIT]
OUTOUT:	OUTPUT 1,
ININ:	INPUT BH+1	; i could have planned it this way
	STATZ 400
	 JRST [	MTAPE [1]
		EXIT]
	SKIPN BH+2
	 JRST OUTOUT
	JRST ININ

END CRUFT